home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Mops 2.5 / Mops source.sit / Mops source / Module source / AlertQmod.txt / AlertQmod.txt.rsrc < prev    next >
Encoding:
Text File  |  1994-05-09  |  368 b   |  7 lines  |  [TEXT/MSET]
  1.     2 RTEXTMSETer
  2.  
  3. \ ( -- f OR key t )  listen 
  4. AlertQmod.txtPartSITxPartSITx´#2ause where time is in 1/60ths of second
  5. timer pTimer
  6. : pause { time -- } start: pTimer
  7.     BEGIN next: fevent IF 2drop THEN get: pTimˇˇ